home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64utils / turbo.sda / TURBODISK REL (.txt) < prev    next >
Commodore BASIC  |  1988-10-21  |  645b  |  18 lines
  1. 100 PRINT"[147]           TURBODISK RELOCATOR[146]":OPEN15,8,15
  2. 110 OPEN2,8,4,"TURBODISK 64,P,R":GOSUB160
  3. 120 GET#2,A$,A$
  4. 130 INPUT"NEW BOOT NAME";PN$:OPEN1,8,3,PN$+",P,W":GOSUB160
  5. 140 INPUT"NEW ADDRESS FOR TURBODISK";AD:SP=INT(AD/256)
  6. 150 PRINT#1,CHR$(0);CHR$(SP);:GOSUB180:GOSUB190:CLOSE1:CLOSE2:END
  7. 160 INPUT#15,E,E$,T,S:IFE=0THENRETURN
  8. 170 PRINTE,E$:CLOSE1:CLOSE2:STOP
  9. 180 DIM PO(24),VO(24):READN:FORX=1TON:READPO(X),VO(X):NEXTX:RETURN
  10. 190 N=1:N$=CHR$(0):PRINT"TARGET[146] = 956":FORX=0TO956
  11. 200 PRINT""X:GET#2,A$:A=ASC(A$+N$)
  12. 210 IFX=PO(N)THEN A=SP+VO(N):PRINT#1,CHR$(A);:N=N+1:GOTO230
  13. 220 PRINT#1,CHR$(A);
  14. 230 NEXTX:RETURN
  15. 240 DATA 23,17,0,33,0,104,3,112,3,140,2,167,0,170,0,175,0,258,1,261,4
  16. 250 DATA 274,4,277,4,286,4,291,1,294,1,297,4,304,1,314,4,321,4,326,4
  17. 260 DATA 332,1,361,4,431,4
  18.